home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 09.d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
266b
|
14 lines
10 gosub10000:rem tabelle deffinieren
20 print"[147]tabelle vor dem sortieren:
30 [129]i[178]1[164]sz
40 :[153]i,d$(i)
50 [130]i
60 [153]"[return]":[151]198,0:[146]198,1
65 [153]"bitte warten!"
70 [141]30000:[143] d$(1)-d$(sz) sortieren
80 [153]"loadtabelle nach dem sortieren:
90 fori=1tosz
100 :printi,d$(i)
110 nexti
120 end